home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / C / Calypso Folder / Connection Files / FirstClass User IBX < prev    next >
Encoding:
Text File  |  1992-08-21  |  8.3 KB  |  294 lines  |  [TEXT/GEOL]

  1. !  FirstClass User IBX CCL
  2. ! This file allows a connection to FirstClass over the IBX using the client software.
  3. ! It has been modified from the Serial Tool IBX CCL for AppleLink, and may still contain 
  4. ! erroneous references to AppleLink.
  5. !
  6. !------------------------------------------------------------------------------
  7. !---                        This is the disconnection code.                 ---
  8. !------------------------------------------------------------------------------
  9. !
  10. *-LABEL 0
  11. !*Debug_All
  12. !*MatchStr 1 1 NO
  13. !*Wait 800
  14. *CTBDown 5
  15. !
  16. *-LABEL 1
  17. *CTBClose
  18. *Exit 0
  19. !
  20. *-LABEL 5
  21. *Alert 5 The Comm Toolbox has closed before the Application could disconnect the modem. Please turn it off and then back on again to ensure disconnection from the network.
  22. *Exit 0
  23. !
  24. !------------------------------------------------------------------------------
  25. !---  This is the connection code. LABEL 0 configures AppleLink for         ---
  26. !---  communication. LABELs 1-25 are modem configuration and dialing.       ---
  27. !---  LABELs 30 through 38 are host connection. Do not change LABELs 30-38. ---
  28. !------------------------------------------------------------------------------
  29. !
  30. -LABEL 0
  31. !Debug_ON
  32. CanBtn 90
  33. !CheckPort 90
  34. NoCTB 54
  35. DsplyPic 1
  36. !
  37. !------This is where the CCL sets up and calls the CTB Tool---------
  38. !
  39. !  -Call the tool selected in the setup connection dialog
  40. IfEQJSR "Serial Tool" "~TOOL" 104
  41. CTBDown 58
  42. !
  43. DsplyMsg Establishing communication with the IBX…
  44. ChrDelay 0
  45. MatchStr 1 1 TIMEO
  46. MatchStr 2 12 E(T)       ! go directly to modem pool
  47. Wait 90
  48. !
  49. -LABEL 1
  50. Flush
  51. DTROff
  52. Pause 24
  53. DTROn
  54. MatchStr 1 1 TIMEO
  55. MatchStr 2 12 E(T)
  56. Wait 300
  57. IncVar 6
  58. IfVar 6 2 42
  59. DsplyMsg Cannot establish communication.  Trying again…
  60. Jump 1
  61. !
  62. !
  63. -LABEL 11
  64. DsplyPic 1
  65. SerReset 9600 0 8 1
  66. IncVar 6
  67. IfVar 6 5 49
  68. MatchStr 1 12 E(T) >
  69. DTROff
  70. Pause 24
  71. DTROn
  72. Wait 300
  73. Jump 11
  74. !
  75. -LABEL 12
  76. DsplyMsg Asking IBX to connect through modem pool…
  77. MatchStr 1 13 TYPE >
  78. Xmit T\13
  79. Wait 300
  80. Jump 11
  81. !
  82. -LABEL 13
  83. MatchStr 1 14 E(T) >
  84. Xmit 24\13
  85. Wait 300
  86. Jump 11
  87. !
  88. -LABEL 14
  89. MatchStr 1 15 BER >
  90. Xmit D\13
  91. Wait 300
  92. Jump 11
  93. !
  94. -LABEL 15
  95. MatchStr 1 16 INIT
  96. MatchStr 2 46 BUSY
  97. DsplyMsg Accessing modems…
  98. ChrDelay 5
  99. Xmit LINK\13
  100. Wait 300
  101. Jump 11
  102. !
  103. -LABEL 16
  104. SerReset 2400 0 8 1
  105. CanBtn 90
  106. !
  107. -LABEL 17
  108. Pause 15
  109. MatchStr 1 18 OK
  110. Xmit AT\92N0E0V1X4\13
  111. Wait 300
  112. Jump 11
  113. !
  114. -LABEL 18
  115. ChrDelay 2
  116. DsplyPic 2
  117. DsplyMsg Dialing the network number: ~FONE…
  118. MatchStr 1 43 NO CARR
  119. MatchStr 2 30 CONN
  120. MatchStr 3 19 ERROR
  121. MatchStr 4 44 BUSY
  122. Pause 30
  123. Xmit ATDT~FONE\13
  124. Wait 1800
  125. Jump 47
  126. !
  127. -LABEL 19
  128. IncVar 5
  129. IfVar 5 3 41
  130. DsplyMsg There has been an error in the modem pool; trying again…
  131. Jump 11
  132. !
  133. -LABEL 30
  134. Matchstr 1 31 1200
  135. MatchStr 2 31 2400
  136. MatchStr 3 31 4800
  137. MatchStr 4 31 9600
  138. MatchStr 5 31 19200
  139. Wait 50
  140. -LABEL 31
  141. DsplyMsg Waiting For Connection
  142. ! wait for press return twice to connect...
  143. MatchStr 1 32 Connect
  144. Flush
  145. wait 400
  146. -LABEL 32
  147. DsplyMsg Connection established. 
  148. ! at this point if you were connecting to a specific system, you would
  149. ! continue the script to match specific things for logging on.
  150. Debug_off ! the script is done.
  151. EXIT 0
  152.  
  153. !
  154. !
  155. !------------------------------------------------------------------------------
  156. !---              LABELS 40 to 49 are IBX and Modem Pool errors.            ---
  157. !------------------------------------------------------------------------------
  158. !
  159. -LABEL 40
  160. Alert 90 The MKO Prompt is appearing, but the IBX is not responding to request for directory.\13\13If the problem continues, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  161. Jump 93
  162. !
  163. -LABEL 41
  164. Alert 90 The modem pool is not accepting the AT dial string.\13\13If the problem continues, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  165. Jump 93
  166. !
  167. -LABEL 42
  168. Alert 90 Unable to invoke the MKO prompt after repeated attempts. Please check all connections to the IBX.\13If the problem persists, call the Apple Online Services HelpLine at (408) 974-3309.\13\13Click OK to try again.
  169. Jump 93
  170. !
  171. -LABEL 43
  172. Alert 90 The phone system is reporting that the phone line to the modem in the modem pool is not staying connected.\13If the problem continues, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  173. Jump 93
  174. !
  175. -LABEL 44
  176. SetVar 6 0
  177. SetVar 5 0
  178. Alert 90 The telephone number you are dialing is busy.\13\13Click OK to try again.
  179. Jump 1
  180. !
  181. -LABEL 45
  182. Alert 90 The phone system is reporting DESTINATION ON HOOK error.\13\13If the problem continues, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  183. Jump 93
  184. !
  185. -LABEL 46
  186. Alert 90 All of the modems in the modem pool are busy.\13\13Click OK to try again.
  187. Jump 93
  188. !
  189. -LABEL 47
  190. Alert 90 Either the network modem isn’t answering, or the network phone number “~FONE” is wrong.  Please check the number.\13If the problem persists, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  191. Jump 93
  192. !
  193. -LABEL 49
  194. Alert 90 Unable to establish connection through the modem pool.\13\13If the problem persists, please call the TeleCom HotLine (x4-4200).\13\13Click OK to try again.
  195. Jump 93
  196. !
  197. !------------------------------------------------------------------------------
  198. !---                   LABELS 50 to 59 are set up errors.                   ---
  199. !------------------------------------------------------------------------------
  200. !
  201. !
  202. -LABEL 50
  203. Alert 90 An attempt to change a parameter within the Communications Toolbox has failed. 
  204. Jump 90
  205. !
  206. -LABEL 51
  207. Alert 90 There is a space or spaces in the AppleLink ID field (in the Connect dialog under the Network menu.  The space(s) might be before or after the AppleLink ID).\13\13Please tab to that field and retype your AppleLink ID without spaces.
  208. Jump 90
  209. !
  210. -LABEL 52
  211. Alert 90 There is a hyphen or hyphens in the AppleLink ID field (in the Connect dialog under the Network menu).\13\13Please tab to that field and retype your AppleLink ID without the hyphen(s).
  212. Jump 90
  213. !
  214. -LABEL 54
  215. Alert 90 The Communications Toolbox is not installed. You must have it installed properly to use this connection file.\13\13Click OK or Cancel to cancel.
  216. Jump 90
  217. !
  218. -LABEL 55
  219. Alert 90 An attempt to open the CTB connecetion failed during the opening of the ~TOOL. You must have CTB installed properly to use this connection file. Click OK or Cancel to cancel.
  220. Jump 90
  221. !
  222. -LABEL 56
  223. Alert 90 An attempt to open the ~TOOL failed. Make sure the CTB and ~TOOL is properly installed.\13\13Click OK or Cancel to cancel.
  224. Jump 90
  225. !
  226. -LABEL 57
  227. Alert 90 After repeated attempts, the CTB connection failed while accessing\13 the ~TOOL.\13\13Click OK or Cancel to cancel.
  228. Jump 90
  229. !
  230. -LABEL 58
  231. Alert 90 The ~TOOL connection has suddenly dropped.\13\13Click OK to try again.
  232. Jump 100
  233. !
  234. -LABEL 59
  235. Alert 90 The Serial Tool is not selected in the port selection field of the AppleLink setup dialog.  Please make this selection then try connecting again.\13\13Click OK or Cancel to cancel.
  236. Exit -1
  237. !
  238. !------------------------------------------------------------------------------
  239. !---     LABELS 60 to 69 are network node errors.                           ---
  240. !------------------------------------------------------------------------------
  241. !
  242. -LABEL 62
  243. Alert 90 The ~APPL host is not responding.\13If the problem continues, call the Apple Online Services HelpLine at (408) 974-3309.\13\13Click OK to try again.
  244. Jump 93
  245. !
  246. !------------------------------------------------------------------------------
  247. !---                            Disconnection logic.                        ---
  248. !------------------------------------------------------------------------------
  249. !
  250. -LABEL 90
  251. DsplyMsg Disconnecting…
  252. !DTROff
  253. Exit -1
  254. !
  255. -LABEL 93
  256. DsplyPic 0
  257. DsplyMsg Disconnecting…
  258. !DTROff
  259. Pause 24
  260. !DTROn
  261. SetVar 1 0
  262. SetVar 2 0
  263. SetVar 3 0
  264. SetVar 4 0
  265. SetVar 5 0
  266. SetVar 6 0
  267. SetVar 7 0
  268. Flush
  269. SerClose
  270. Jump 0
  271. !
  272. -LABEL 94
  273. DsplyMsg Disconnecting…
  274. Xmit STOP\13
  275. !DTROff
  276. Exit -1
  277. !
  278. -LABEL 104
  279. CTBTool 56 55 0 Serial Tool
  280. CTBParam 56 Baud 9600
  281. !
  282. !  -Set the Tool parameters. If param value contains a space, set value off    
  283. !   by enclosing it in quotes.  Remove exclaimation marks if you want to 
  284. !   hardcode the serial tool parameters.
  285. !CTBParam 56 Baud 9600 Parity None DataBits 8 StopBits 1 Handshake None Port !"Modem Port" HoldConnection False RemindDisconnect False
  286. !
  287. !  -Open the selected tool and set a condition if the CTB connection fails
  288. CTBOpen 1
  289. Alert 90 An attempt to open the CTB connection failed. The parameters may be set wrong. Click OK to set the parameters manually, or Cancel to cancel.
  290. CTBChoose
  291. CTBOpen 1
  292. Jump 57
  293. ###
  294.